|
|  Russite Fly
|  Ecrit par Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Fly"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS  2
  WIDTH   8 * CW
  HEIGHT  2 * CH + 12 * COH + 15 * COH

  ZeroToWin 104 - CARDSIN$2

  FOR stack = 0 TO 7
    FOUNDATION
      X stack * CW 
      Y 0
      DEAL 1,1
      DealCard x1
      ID 2
      FLAGS Join____
    END
  END

| Reserve

  STACK
     X 0
     Y CH
     DEAL 13,1
     MAX 0
  END

| Waste piles

  FOR stack = 1 TO 5
    STACK
      X stack * CW + CW / 2
      Y CH
      FIRST 1,13
      DRAGUPTO 1
      JoinFrom 3
      JoinOffset 0,1,2,3,4,5,6,7,8,9,10,11,12
      FLAGS ClickFly AppendOneOnly Join____ RotateJoin
      ID 1
    END
  END

| Stock

  STACK
    X 7 * CW
    Y CH 
    DEAL 83,1
    MAX 0
    DRAGUPTO 1
    FLAGS ClickFly PaintLast
    ID 3
  END

END
